home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / proc.soundex < prev    next >
Text File  |  2007-03-01  |  1KB  |  47 lines
  1. 0010 // ╘HIS PROCEDURE CAN BE USED IN
  2. 0020 // THE BIG ├╧═┴╠ DEMO PROGRAM
  3. 0030 // FROM ╒NI├OMAL AS AN EXAMPLE
  4. 0040 // OF THE PACKAGE ╙╧╒╬─
  5. 0050 
  6. 0060 // WRITTEN BY ─ICK ╦LINGENS
  7. 0070 // ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  8. 0080 
  9. 0090 ╨╥╧├ SOUNDEX 
  10. 0100   HEAD(BLUE,YELLOW,"╙╧╒╬─ EXAMPLE:")
  11. 0110   TYPE("╒╙┼ SOUND")
  12. 0120   TYPE("")
  13. 0130   TYPE("─╔═ OKTAF$ ╧╞ 8")
  14. 0140   TYPE("OKTAF$:=""CDEFGABC""")
  15. 0150   TYPE("╞╧╥ TIM:=1 ╘╧ 5 ─╧")
  16. 0160   TYPE(" ╞╧╥ N:=1 ╘╧ 7 ─╧")
  17. 0170   TYPE("  NOTE(1,OKTAF$(N)+""4"")")
  18. 0180   TYPE("  GATE(1,1)")
  19. 0190   TYPE("  ╞╧╥ W:=1 ╘╧ 300 ─╧ ╬╒╠╠")
  20. 0200   TYPE("  GATE(1,0)")
  21. 0210   TYPE(" ┼╬─╞╧╥ N")
  22. 0220   TYPE(" NOTE(1,OKTAF$(8)+""5"")")
  23. 0230   TYPE(" ╞╧╥ W:=1 ╘╧ 300 ─╧ ╬╒╠╠")
  24. 0240   TYPE(" GATE(1,0)")
  25. 0250   TYPE("┼╬─╞╧╥ TIR")
  26. 0260   TYPE("VOLUME(0)")
  27. 0270   LISTEN
  28. 0280   
  29. 0290   ╨╥╧├ LISTEN 
  30. 0300     ╒╙┼ SOUND
  31. 0310     ─╔═ OKTAF$ ╧╞ 8
  32. 0320     OKTAF$:="CDEFGABC"
  33. 0330     ╞╧╥ TIM:=1 ╘╧ 5 ─╧
  34. 0340       ╞╧╥ N:=1 ╘╧ 7 ─╧
  35. 0350         NOTE(1,OKTAF$(N)+"4")
  36. 0360         GATE(1,1)
  37. 0370         ╞╧╥ W:=1 ╘╧ 300 ─╧ ╬╒╠╠
  38. 0380         GATE(1,0)
  39. 0390       ┼╬─╞╧╥ N
  40. 0400       NOTE(1,OKTAF$(8)+"5")
  41. 0410       ╞╧╥ W:=1 ╘╧ 300 ─╧ ╬╒╠╠
  42. 0420       GATE(1,0)
  43. 0430     ┼╬─╞╧╥ TIM
  44. 0440     VOLUME(0)
  45. 0450   ┼╬─╨╥╧├ LISTEN
  46. 0460 ┼╬─╨╥╧├ SOUNDEX
  47.